home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / text / show / Vinci12.lha / Vinci / Install < prev    next >
Text File  |  1995-03-23  |  3KB  |  139 lines
  1. ; *******************************************************************
  2. ;
  3. ; $VER: Install-Vinci 1.2 (18.3.95)
  4. ; 
  5. ; Install script for Vinci copyright © 1995 Martin Wulffeld
  6. ;
  7. ; *******************************************************************
  8.  
  9. (set old_level @user-level)
  10. (set @default-dest "")
  11.  
  12. (set default_lang 2)
  13.  
  14. (set #bad-kick
  15. (cat "You must at least have Kickstart 2.04 to install Vinci!"
  16. ))
  17.  
  18. (set #copying-reqtoools        "Copying reqtools.library 38.1266 to LIBS:...")
  19. (set #copying-unpack        "Copying unpack.library 39.54 LIBS:...")
  20. (set #copying-vinci            "Copying Vinci program...")
  21. (set #copying-docs            "Copying Vinci documentation...")
  22.  
  23. (set #where-vinci            "In which drawer should Vinci be installed ?")
  24. (set #would-wb                "Do you also want Vinci in your SYS:C ?")
  25.  
  26. (set #which-language
  27. (cat "\nWhich languages should be installed?"
  28. ))
  29. (set #which-language-help
  30. (cat "\nThe Amiga can be operated in many different"
  31.       " languages. If you want Vinci to use the"
  32.      " same language as the Amiga Workbench"
  33.       " then a catalog file must be copied to your"
  34.       " harddisk for each language supported.\n\n"
  35.       "To reduce the amount of space consumed by the"
  36.       " language files, you can select to have only the"
  37.       " files of specific languages copied.\n\n"
  38.       "Simply check the boxes of the languages you wish"
  39.       " to have available on your system.\n\n"
  40.       @askoptions-help
  41. ))
  42.  
  43. ;=============================================================================
  44. ; Make sure we are running under a 2.04 ROM
  45.  
  46. (if (< (/ (getversion) 65536) 37)
  47. (
  48.     (abort #bad-kick)
  49. ))
  50.  
  51. ;=============================================================================
  52.  
  53. (copylib
  54.     (prompt "\n" #copying-reqtools)
  55.     (help @copylib-help)
  56.     (source "Libs/reqtools.library")
  57.     (dest "LIBS:")
  58.     (confirm)
  59. )
  60.  
  61. (copylib
  62.     (prompt "\n" #copying-unpack)
  63.     (help @copylib-help)
  64.     (source "Libs/unpack.library")
  65.     (dest "LIBS:")
  66.     (confirm)
  67. )
  68.  
  69. (set programdir
  70.     (askdir
  71.     (prompt  "Please select the path where you want to install Vinci along with the acompanying documentation. A drawer will not be created there.")
  72.     (help @copylib-help)
  73.     (default "SYS:")
  74.     (newpath)
  75.     )
  76. )
  77.  
  78. (copyfiles
  79.     (prompt "\n" #copying-vinci)
  80.     (help "")
  81.     (source "Vinci")
  82.     (dest programdir)
  83.     (infos)
  84. )
  85.  
  86. (makedir (cat programdir "Documentation"))
  87.  
  88. (copyfiles
  89.     (prompt "\n" #copying-docs)
  90.     (help "")
  91.     (source "Documentation/Vinci.guide")
  92.     (dest programdir)
  93.     (infos)
  94. )
  95.  
  96. (copyfiles
  97.     (prompt "\n" #copying-docs)
  98.     (help "")
  99.     (source "Documentation/Vinci.regform")
  100.     (dest programdir)
  101.     (infos)
  102. )
  103.  
  104. (if (exists "SYS:Locale")
  105. (
  106.     (if (exists "LOCALE:")
  107.     (
  108.         (user 2)
  109.         (set lang (askoptions (prompt #which-language)
  110.                                 (help #which-language-help)
  111.                                 (choices
  112.                                      "Dansk"
  113.                                      "English")
  114.                                 (default default_lang)
  115.                      )
  116.         )
  117.         (user old_level)
  118.  
  119.         (set n 0)
  120.         (while (set language (select n
  121.                                 "dansk"
  122.                                 ""))
  123.         (
  124.             (if (IN lang n)
  125.             (
  126.                 (if (< 2 n)
  127.                 (
  128.                     (makedir (cat "LOCALE:Catalogs/" language))
  129.                     (copyfiles (source (cat "Catalogs/" language))
  130.                                 (dest (cat "LOCALE:Catalogs/" language))
  131.                                 (all)
  132.                     )
  133.                 ))
  134.             ))
  135.             (set n (+ n 1))
  136.         ))
  137.     ))
  138. ))
  139.